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TECHNICAL MEMORANDUM 


A PROGRAMMABLE HEATER CONTROL CIRCUIT FOR SPACECRAFT 

Center Director’s Discretionary Fund Final Report 
Project No. 90-19 


INTRODUCTION 


Spacecraft thermal control is accomplished for many components through use of multilayer insu- 
lation systems, electrical heaters, and radiator systems. The heaters are commanded to maintain compo- 
nent temperatures within design specifications. Control of the heater system has been accomplished in 
several ways including local thermostats, analog devices, and use of centralized digital control systems. 

Many component heater control systems use thermostats to provide the desired temperature con- 
trol. Thermostats are mechanical devices which make or break electrical contact due to change in tem- 
perature. This is usually accomplished via differential thermal expansion of a bimetallic disk that 
changes shape, and therefore position, with temperature. A typical thermostat is shown schematically in 
figure 1. Since a thermostat can conceivably fail in the closed position, two thermostats are used in 
spacecraft operation and are wired in series so that the circuit breaks if either of the thermostats open. 
Further, to provide the complete redundancy needed for spaceflight, two parallel circuits, each with two 
thermostats, are required as a safeguard against one of the thermostats failing in the open position. 
Figure 2 shows typical circuitry using thermostats. 



Figure 1 . Typical thermostat (courtesy of Elmwood Sensors, Inc.). 
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Figure 2. Mechanical thermostat circuit. 

Alternatives to mechanical thermostats have included analog circuits in varying design applica- 
tions, using solid state devices. Analog devices have the advantage of precise temperature control, for 
components with operational temperature requirements which must be maintained within small limits, 
such as spacecraft pointing and control systems. A schematic of an analog controller is shown in figure 
3. The analog circuitry must also be designed with redundancy in spacecraft applications. 



temperature 

sensor 


Figure 3. Analog control circuit. 


Some spacecraft have used central digital control systems to accomplish temperature control of 
components. This involves design of a central digital computer which receives many analog inputs from 
distributed component controllers. The analog signals are converted to digital data and the control func- 
tions are determined by the central processor unit (CPU). The heaters are commanded individually from 
the CPU based upon control logic. For some applications, proportional control is provided through volt- 
age regulation. 

Several disadvantages with these systems can be identified. For thermostatically controlled sys- 
tems the mechanical thermostat itself has a potential for failure, either opened or closed. The thermostat, 
being mechanical, provides no temperature data; therefore, separate temperature sensors must be pro- 
vided by a central spacecraft data system. The thermostats have a predetermined set point (temperature) 
and dead band (control range) that cannot be altered. 
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Analog devices eliminate the mechanical problems associated with thermostats, but they also 
have a predetermined set point and dead band that cannot be altered once physically integrated into the 
spacecraft. The analog device has no feedback of temperature data for monitoring the thermal condition 
of the component, even though one or more temperature sensors are integrated into the circuit. If the 
component temperature must be monitored, another sensor must be installed and integrated with the 
spacecraft central data system. 

The central digital control systems provide the most versatility and flexibility with respect to 
control authority, data acquisition, reprogramming, and sometimes proportional control. These systems 
are usually expensive, require substantial integration during spacecraft assembly, and result in signifi- 
cant spacecraft wiring for the control instrumentation. 

With the advanced technology in both electronic sensing and computer programming, this devel- 
opment introduces solid state design, use of control instrumentation as data available to the central data 
system, reprogramming capability of the local microprocessor during the spacecraft mission, if required, 
and the elimination of significant spacecraft wiring. The hybrid integrated circuit has a temperature sens- 
ing and conditioning circuit, a microprocessor, and a heater power and control circuit. This program- 
mable heater control circuit (PHCC) is miniature and housed in a volume which allows physical integra- 
tion with the component to be controlled. Applications might include alternate battery-powered logic - 
circuit configurations. A prototype unit with appropriate physical and functional interfaces was procured 
for testing. The physical functionality and feasibility of the hybrid integrated circuit were successfully 
verified. 


APPROACH 


The effort was to develop a small, integrated hybrid circuit that captured the advantages of both 
central digital controllers and local autonomous control systems. A simplified schematic of the device is 
shown in figure 4. Optional configurations are shown in figure 5. The advantages of this design include 
solid state design, use of control instrumentation as data available to the central data system (through a 
time-multiplexed data bus), reprogramming capability of the local microprocessor during the spacecraft 
mission, if required, and the elimination of significant spacecraft wiring (the device only requires a 
power bus interface and a data bus interface). 

The hybrid integrated circuit has a temperature sensing and conditioning circuit, a microproces- 
sor, and a heater power and control circuit. The device is miniature and housed in a volume which 
allows physical integration with the component to be controlled. In typical operation, the set point tem- 
perature and dead band control range are programmed in the heater control logic of the microprocessor. 
Temperature sensors reference the component temperature through signal conditioners and an analog-to- 
digital converter. Based on the reference temperature, the microprocessor issues commands to the heater 
controllers to turn on or off (voltage regulation, or proportional control is not provided in this design, 
with the exception of varying the heater duty cycle over time). The integrated circuit, through the micro- 
processor, also interfaces with the central data bus. Upon interrogation by the spacecraft CPU via this 
bidirectional communication link, component temperature data is passed upon demand to the spacecraft 
central processor. Additionally, the status of the heaters (on or off), the duty cycle of the heaters, and 
computed functions such as power utilization can be communicated and eventually telemetered to 
ground stations. The central spacecraft computer system also has the capability of reprogramming or 
reconfiguring the local microprocessor heater control logic to adjust to unexpected or anomalous events. 
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28 VOLT SPACECRAFT POWER BUS 


Figure 4. Programmable heater control circuit with internal dc/dc converter. 


Additionally, the local microprocessor can be programmed to react to events such as temperature sensor 
failures, heater circuit failures, etc., and take action to use redundant systems. The versatility and utility 
of the device is quite good and offers substantial design and operational advantages to spacecraft thermal 
designers. 


SPACECRAFT APPLICATIONS 


Potential applications of the PHCC are believed to exist both in the spacecraft and payload areas. 
The primary application is believed to be free-flying spacecraft with somewhat tight component 
temperature-control requirements. These include applications such as nickel-hydrogen battery tempera- 
ture control, pointing and control system temperature control, low temperature conditioning of science 
instruments, telescope mirror assembly temperature control, and heater control for variable conductance 
heat pipe systems. The payload applications might include alternate design configurations, such as 
battery-powered logic circuits, for short duration missions, eliminating the need for internal dc/dc 
conversion within the PHCC (see fig. 5). Control requirements would be similar to the spacecraft 
applications discussed above. Payload applications may not require an interface with a central data 
system but might require expanded memory in the microprocessor, with data retrieval occurring after 
flight. These design options can be made available through several off-the-shelf controllers, with varying 
design features selected by the spacecraft or payload designer. Depending upon the spacecraft market 
and unit cost for these devices, these solid state programmable systems could replace mechanical 
thermostats, analog devices, and central controllers on future spacecraft programs. 
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28 VOLT SPACECRAFT POWER BUS 


Figure 5. Programmable heater control circuit with battery powered logic circuit. 


BREADBOARD DEVELOPMENT 


A fully functional breadboard of the PHCC was developed. The attached schematic, figure 6, 
shows the circuitry developed to accomplish this task. The Motorola M68HC81 1E2 microcontroller was 
chosen to be the heart of the design. This controller is in Motorola’s HC1 1 family of microcontrollers. It 
features 2 kilobytes of electrically erasable programmable read-only memory (EEPROM), an 8-bit 
analog-to-digital converter with eight multiplexed inputs, an RS232 port, internal timers, an 8-bit bidi- 
rectional port, and an 8-bit output port. The Maxim MAX700 was chosen to provide the reset signal 
upon power-up. The microcontroller can read eight analog sensor input signals. These are input through 
an 8-to-l analog multiplexer. The multiplexer used is the Analog Device 7503. The input are selected by 
three control lines from the microcontroller. Two of these inputs are AD590 temperature transducers that 
are mounted internal to the case. The other six inputs are set up to be AD590 inputs but can also be used 
to input other signals. Each external input has a pair of external pins with a 15-V reference signal on one 
pin and the other going to an input of an 8-to-l multiplexer and to a 10-k ohm resistor to ground. The 
output of the multiplexer then goes to the plus input of the instrumentation amplifier. The minus input of 
the instrumentation amplifier is connected to the output of a 12-bit digital-to-analog (D/A) converter. 

The D/A used is the MicroNetworks MN371 . The 12 input bits to the D/A come from the microcon- 
troller digital output ports. The instrumentation amplifier used is the Burr Brown PGA200 program- 
mable gain instrumentation amplifier. It has four selectable gain of 1, 10, 100, 1 ,000. The purpose of the 
D/A converter and the selectable gain is to provide a dc offset and amplification of the signal for better 
resolution and control around a setpoint. 
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Figure 6. Programmable heater controller hybrid schematic 













Communication with a main computer is accomplished through the microcontroller’s RS232 
port. The digital transmit and receive lines from the microcontroller are level-converted and buffered 
within the hybrid. The transmit line is buffered by a 1 488 line driver and the receive line is buffered by a 
1 489 line receiver. 

Initial programming of the 2k of EEPROM is done through the RS232 port. A “program mode” 
is entered when the MODB line that comes to an external pin is tied to ground. A “Bootloader” program 
is loaded into the random access memory (RAM) and takes control of the microcontroller to load the 
EEPROM. Software or “control code” is developed using the HC1 1 assembly language and assembler. It 
should be noted that the EEPROM can be reprogrammed under computer control through the RS232 
port connected to the computer used for monitoring and control. Changing set points or control algo- 
rithms can be accomplished easily through the monitor and control computer also. 

Four heaters can be controlled from this hybrid. There are two external lines provided for each 
heater. The load voltage brought in on the “28 V” external pin is connected to one of these lines. The 
other line is connected to the drain of an International Rectifier IRFF130. This metal oxide semiconduc- 
tor field-effect transistor (MOSFET) is rated at 100 V and has an “on” resistance of less than 0.2 ohms. 
The MOSFET’s are controlled by outputs from the microcontroller that are optically isolated from the 
MOSFET by an HP2200 optical insulator. 


SOFTWARE DEVELOPMENT AND VERIFICATION 


The PHCC software is shown in appendix A. The software was developed using the breadboard 
unit discussed above. The software is designed to set, monitor, and program the heater controller and is 
as simple and flexible as possible. Some of the function features in the software include the following: 

• Header files 

• Turning cursor on and off 

• Setting screen colors 

• Screen locations 

• User inputs 

• Module functions 

• Global variables 

• Communicating with heater controller 

• Controlling cursor 

• Initializing stack, output ports, heaters 

• Initial conditions 

• Heater control 

• Reading temperature. 

Verification was also accomplished on the prototype unit when software was loaded and each function 
was successfully executed. 
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PROTOTYPE DEVELOPMENT AND TESTING 


To verify the physical functionality and feasibility of fabrication of the hybrid integrated circuit, 
a prototype unit was procured and built from non Mil-certified parts. The prototype unit did not include 
the internal dc/dc converter required for the flight version. This function was simulated external to the 
prototype. The unit was delivered and bum-in tests were accomplished, and the software was loaded and 
verified. Of four units delivered and tested, one unit failed the bum-in test. The dimensions of the proto- 
type are shown in figure 7. The width is 2 inch and length is 2.85 inch. The external pin connections are 
on 0. 15-inch spacing and extend 0.25 inch from the body on each side. The mounting flanges extend 
0.35 inch from each end and give an overall length of 3.85 inch. The base of the package is 0.0625 inch 
thick, and the diameter of the mounting holes is 0.16 inch with the centers 3.175 inch apart. The overall 
height is 0.5675 inch. 



Figure 7. The dimension of prototype hybrid. 


The prototype Hybrid weighs approximately 160 g (5.6 oz). The quiescent power consumed with 
all heaters “off’ and including the dc/dc converter is 1 .5 W. The complete system test configuration is 
shown in figure 8. The test procedures and results are described and tabulated as shown in appendix B. 
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Figure 8. Prototype hybrid system test configuration. 


QUALIFICATION REQUIREMENTS 


Based upon the above discussion, the PHCC has been shown to be a feasible design concept. The 
software is fully developed and verified. Further development is required in the area of procurement and 
testing of a Mil-certified part with an internal dc/dc converter for generic qualification testing. The test- 
ing should include thermal vacuum performance testing, thermal cycling, vibration, and electromagnetic 
interference (EMI) testing. Appropriate test plans should be generated to qualify the device for a wide 
range of spacecraft applications as an off-the-shelf item. Military Standard 1540B provides qualification 
test requirements routinely accomplished at MSFC. Should a joint venture be initiated with a potential 
PHCC vendor, MSFC qualification testing is an option that is available. 
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CONCLUSION 


The PHCC design has progressed to the definition of a very efficient and compact device includ- 
ing an internal dc/dc converter. The software is fully developed and verified. A breadboard unit has been 
developed and tested with applicable software. Also a prototype unit with appropriate physical and 
functional interfaces was procured for software testing and for bum-in testing. The remaining work to 
develop a flight-qualified device includes fabrication and testing of a Mil-certified part, with an internal 
dc/dc converter. 

An option for completing the PHCC flight qualification testing is to enter into a joint venture 
with industry. The government contribution would include the design, software, and development his- 
tory; also, the government could provide the qualification testing and data analysis. The industry partici- 
pation would include fabrication of the units for testing, per Mil-specification. Successful completion of 
the test program would result in a commercially marketable device or family of devices, with applica- 
tions to spacecraft thermal control systems. 
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Appendix A 
PHCC Software 


/* 

ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
0 include statements for header files 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 


#include 
w include 
#include 
/include 
/include 
/include 
/include 
/include 
/include 
/include 


<stdio . n> 
<stdlib . h> 
<conio . h> 
<math.n> 

<dos . h> 

<rime . n> 

<svs\ types . h> 
<svs\timeb . h> 
<bios . h> 
"rs232 . h" 


/* 

leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
0 definitions used in turning cursor on and off 

a eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 


/define VIDEO_IO 0x10 
/define SET CRSR 1 


/* 

I eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeSeeeeeeeeeeeeeeeeeeeeeeeeeeeee' 
0 definitions used for setting screen colors 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee< 

* / 


,/def ine 
/define 
/define 
/define 
/define 
/define 
/define 
rdef ine 

#def ine 


BLACK 

BLUE 

GREEN 

CYAN 

RED 

MAGENTA 

BROWN 

WHITE 

BLACK ON 


0X00 

0X10 

0X20 

0X30 

0X40 

0X50 

3x60 

0X70 

0X00 


p-mQmMm pags blank not fumes 


PAGE. 


ti 


. INTENT UtVxLw v 


r-iVr. 
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/define ELUE_ON 0x01 
/define GREEN_ON 0x02 
/define CYAN_ON 0x03 
■/define RED_ON 0x04 
#def ine MAGENTA_ON 0x05 
#def ine BROWNJDN 0x06 
#def ine WHITE_ON 0x07 

#def ine GREY ON 0x0 S 


#def ine BRIGHT_BLUE_ON 0x09 
/define BRI GHT_GREEN_ON OxOA 
/define BRIGHT_CYAN_ON OxOB 
/define BRIGHT_RED_ON OxOC 
/define BRIGHT_MAGENTA_ON OxOD 
/define YELLOW_ON OxOE 
/define BRIGHT WHITE ON OxOF 


/* 

ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
0 definitions used for screen locations 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 


/define PLATE_UL_ROW 1 

/define PLATE_UL_COLUMN 12 
/define PLATE_ROWS 15 

/define PLATE_COLUMNS 55 

/define HEATER1_UL_R0W 2 

/define HEATER1_UL_C0LUMN 14 
/define HEATER1_R0WS 5 

/define HEATER1_C0LUMNS 19 

/define HEATER2_UL_ROW 7 

/define HEATER2_UL_COLUMN 54 
/define H EAT ER2 _RO W S 3 

/define HEATER2_COLUMNS 11 

/define SENSORl_UL_ROW 4 

/define SENSORl_UL_COLUMN 13 
/define SENSORl_ROWS 1 

/define SENSORl_COLUMNS 6 

/define £ENSOR2_UL_ROW 4 

/define SENSOR2_UL_COLUMN 56 
/define SENSOR2_ROWS 1 

/define SENSOR2_COLUMNS 6 

/define SENSOR3_UL_ROW 3 

/define SENSOR3_UL_COLUMN 36 
/define SENSOR3_ROWS 1 

/define SENSOR3_COLUMNS 6 

/define SENSOR4_UL_ROW 12 

/define SENSOR4_UL_COLUMN IS 
/define SENSOR4_ROWS 1 

/define SENSOR4 COLUMNS 6 
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/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 


/* 

ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeei 

° definitions used for getting information from user 
aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeei 

*/ 


/define 

RETURN 

13 

/define 

ESCAPE 

27 

/define 

BACKSPACE 8 

/define 

LEFT ARROW 75 

/define 

RIGHT ARROW 77 

/define 

CURSOR 

176 

/define 

FI 

59 


/define 

F2 

60 


/define 

F3 

61 


/define 

F 4 

62 


/define 

F5 

63 


/define 

F 6 

64 


/define 

F7 

65 


/define 

F8 

66 


/define 

F9 

67 



/* 

ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

l function declarations for functions in this module 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

*/ 


SENS0R5_UL_R0W 12 

SENS0R5_UL_C0LUMN 56 

SENS0R5_R0WS 1 

SENS0R5_C0LUMNS 6 

ROW_query_window 18 
COLUMN_query_window 40 

R0W_HEATER1_SETP0INT 3 
C0LUMN_HEATER1_SETP0INT 1 

ROW_HEATER2_SETPOINT 9 
C0LUMN_HEATER2_SETP0INT 70 

ROW_NUMBER_TO_AVERAGE 2 3 
COLUMN_NUMBER_TO_AVERAGE 3 0 

ROW_ERROR_MESSAGE 16 
COLUMN ERROR MESSAGE 20 


void send_byte_to_heater ( unsigned char c ); 

unsigned char receive_byte_f rom_heater ( unsigned comm port ) ; 
void wait_f or_comm_port_data ( void ); 

void turn_on_cursor ( void ) ; 
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void turn_of f _cursor ( void ); 

void change_cursor ( int top, int bottom ); 


void background_on_screen ( void ) ; 
void update_screen ( void ) ; 
void display _screen ( void ); 

void write_string_in_screen_buf f er ( char *string, int row, int column ); 
void write double_in_screen_buf f er ( char *format_string, 
double number, int row, int column ); 


void cut_string( char *destination, char *source, int first_char, int last_che 

void user_edit_f ield_on_screen ( char * string, 

int row, int start_column,- int end_column, 
char f ield_foreground, char f ield_background, 
char cursor_foreground, char cursor_background ) ; 


void copy_characters_f rom_screen ( char *string, 

int start_row, int end_row, int start_column, 
void copy characters_to_screen ( char *string, 

int start_row, int end_row, int start_column, 
void copy_attributes_f rom_screen ( char *string, 

int start_row, int end_row, int start_column, 
void copy_attributes_to_screen ( char *string, 

int start row, int end_row, int start_column, 


int end_column ) ; 
int end_column ) ; 
int end_column ) ; 
int end column ) ; 


void f ill_character_block ( char c, 

int start_row, int end_row, int start_column, int end_column ) ; 
void f ill_attribute_block( char c, 

int start row, int end_row, int start_column, int end_column ) ; 


char guery_user_f or_key ( char *prompt ); 
double query_user_f or_number ( char *prompt ); 

void open window ( char *cnaracter_array , char *attribute_array , 

int start_row, int ena_row, int starr_column , int end_column, 
char color_byte ) ; 

void close_window( char *character_array , char *attribute_array , 

int start row, int end_row, int start_column, int end_column ) ; 


/* 

ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

° global variable declarations 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

*/ 


char screen charactersf 2001] , screen_attributes [ 2001 ] ; 
unsigned comm_port; 
int debug_mode = 0 ; 


ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeefeiieee 

lfi ° the main program 

lo 44ceeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaM««e 


*/ 


int main ( int argc, char *argv[] ) 

{ 

static char string[ 256 ] ; 
char key = ' ' ; 

unsigned char heater_status ; 
unsigned char sensor l_data ; 
unsigned char sensor2_data ; 
unsigned char sensor3_data ; 
unsigned char sensor4_data ; 
unsigned char sensor5_data ; 

double sensorl_temperature = 0.0; 
double sensor2_temperature = 0.0; 
double sensor3_temperature = 0.0; 
double sensor4_temperature = 0.0; 
double sensor5_temperature = 0.0; 
double averages = 0.0; 

double number_of_readings_to_average = 10.0; 

unsigned char heater_select ; 
unsigned char sensor_select ; 
unsigned char set_point; 

FILE *fileptr; 


/* 

Check for debug mode. 
*/ 


if ( argc > 1 ) 

if ( (argv[ 1] ) [ 0] == 'd' j| (argv[l])[0] == 'D' ) 
debug_mode = 1 ; 


/* 

Set up the screen. 
*/ 


turn_of f_cursor ( ) ; 
background_on_screen ( ) ; 


/* 

Set up the comm port. 
*/ 


do 

{ 

key = query _user_for_key( "Enter 1 for COM1 or 2 for COM2" ) ; 
while ( key != ' 1' && key != ' 2 ' && key != ESCAPE ); 


if ( key == ESCAPE ) 
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{ 

turn_on_cursor ( ) ; 
return 1 ; 

} 


if ( key == ' 2 ' ) comm_port = COM2; 
else comm_port = C0M1; 

initialize_comm_port ( comm_port, 

_COM_CHR8 | _C0M_ST0P1 | _COM_NOPARITY | _COM_9 600 ) ; 

if ( check_status ( comm_port ) & DATA_READY_BIT ) 

receive_byte ( comm_port ) ; 


/* 

Main program loop. 
*/ 


do 


{ 


{ 

send_byte_to_heater ( 'D' ); 


heater_status = receive_byte_f rom_heater ( comm_port 
sensor l_data = receive_byte_from_heater ( comm_port ) 
sensor2_data = receive_byte_from_heater ( comm_port ) 
sensor3_data = receive_byte_from_heater ( comm_port ) 
sensor4_data = receive_byte_from_heater ( comm_port ) 
sensor5_data = receive_byte_from_heater ( comm_port ) 


) 


sensorl_temperature += 
sensor2_temperature += 
sensor3_temperature += 
sensor4_temperature -r= 
sensor5_temperature += 
++averages ; 


(double) 
(double) 
( double) 
(double) 
(double) 


sensor l_data * 50.0 
sensor 2_data * 50.0 
sensor3_data * 50.0 
sensor4_data * 50.0 
sensor5 data * 50.0 


if ( averages >= number_of_readings_to_average ) 

s 


write_double_in_screen_buf fer ( "%6. Ilf" , 

( sensor l_temperature / averages ) , 

SENS0R1_UL_R0W, SENSORl_UL_COLUMN ) ; 

write_double_in_screen_buf fer ( "%6 . Ilf" , 

( sensor2_temoerature / averages ) , 

SENSOR2_UL_ROW , SENSOR2_UL_COLUMN ) ; 

wr ite_double_in_screen_buf f er ( "%6 . Ilf" , 

( sensor3_temperature / averages ) , 
SENSOR3_UL_ROW, SENS0R3_UL_C0LUMN ) ; 

write_double_in_screen_buf f er ( "%6 . Ilf " , 

( sensor4_temperature / averages ) , 
SENSOR4_UL_ROW, SENSOR4_UL_COLUMN ) ; 

write double in screen buffer ( "%6.11f" , 


255.0 

255.0 

255.0 

255.0 

255.0 
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( sensors_teinperarure / averages ) , 

SENS0R5_UL_R0W , SENS0R5_UL_C0LUMN ) ; 

sensor l_temperature = 0.0; 
sensor2_temperature = 0.0; 
sensor3_temperature = 0.0; 
sensor4_temperature = 0.0; 
sensor5_temperature = 0.0; 
averages = 0.0; 

} 

if ( heater_status & 1 ) 

{ 

f ill_attr ibute_block ( WHITEJON | BROWN, 

HEATERl_UL_ROW , HEATERl_UL_ROW + HEATERl_ROWS - 1, 
HEATER1_UL_C0LUMN , HEATERl_UL_COLUMN + HEATER1_C0LUMNS - 1 

f ill_attribute_block ( BRIGHT_WHITE_ON | BROWN, 

SENSORl_UL_ROW + 1, SENSORl_UL_ROW + 1 + SENSORl_ROWS - 1, 
SENSORl_UL_COLUMN, SENSORl_UL_COLUMN + SENSORl_COLUMNS - 1 

} 

else 

{ 

fill_attribute_block( WHITE_ON | RED, 

HEATERl_UL_ROW , H EAT ER l_UL_ROW + HEATERl_ROWS - 1, 
HEATERl_UL_COLUMN , HEATERl_UL_COLUMN + HEATERl_COLUMNS - 1 

f ill_attribute_block ( BRIGHT_WHITE_ON | RED, 

SENSORl_UL_ROW + 1, SENSORl_UL_ROW + 1 + SENSORl_ROWS - 1, 
SENSOR1_UL_COLUMN, SENSORl_UL_COLUMN + SENSORl_COLUMNS - 1 

} 

if ( heater_status & 2 ) 

{ 

f ill_attribute_block ( WHITE_ON | BROWN, 

HEATER2_UL_ROW , HEATER 2 _UL_ROW + HEATER2_ROWS - 1, 
HEATER2_UL_COLUMN , HEATER2_UL_COLUMN + HEATER2_COLUMNS - 1 

f ill_attribute_block( BRIGHT_WHITE_ON | BROWN, 

SENSOR5_UL_ROW + 1, SENSOR5_UL_ROW + 1 + SENSOR5_ROWS - 1, 
SENSOR5_UL_COLUMN, SENSOR5_UL_COLUMN + SENSOR5_COLUMNS - 1 

} 

else 

{ 

f ill_attribute_block ( WHITE_ON | RED, 

HEATER 2 _UL_ROW , H EAT ER 2 _UL_RO W + HEAT ER2 _ROW S - 1, 
HEATER2_UL_COLUMN , HEATER2_UL_COLUMN + HEATER2_COLUMNS - 1 

f ill_attribute_block ( BRIGHT_WHITE_ON | RED, 

SENSOR5_UL_ROW + 1, SENSOR5_UL_ROW + 1 + SENSOR5_ROWS - 1, 
SENSOR5_UL_COLUMN, SENSOR5_UL_COLUMN + SENSOR5_COLUMNS - 1 

} 

f ill_attribute_block ( BLACK_ON | WHITE, 

SENSORl_UL_ROW , SENSORl_UL_ROW + SENSORl_ROWS - 1, 
SENSORl_UL_COLUMN , SENSORl_UL_COLUMN + SENSORl_COLUMNS - 1 ) ; 

fill_attribute_block( BLACK_ON | WHITE, 

SENSOR5_UL_ROW, SENSOR5_UL_ROW + SENSOR5_ROWS - 1, 

SENSOR5 UL COLUMN, SENSOR5 UL_COLUMN + SENSOR5_COLUMNS - 1 ) ; 
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II 


sprintf ( string, "%.01f %.01f 

number_of_reaaings_to_average, averages + 1.0 ); 

write_string_in_screen_buf f er ( string, 

ROW_NUMBER_TO_AVERAGE , COLUMN_NUMBER_TO_AVERAGE ) ; 

update_screen ( ) ; 

> 

while ( Ikbhit ( ) ); 


/* 

Get the key that was pressed. 
*/ 


do 

{ 

key = (char) getch(); 
if ( key == 0 ) getch(); 
} 

while ( kbhit ( ) ) ; 


/* 

Set point command. 
*/ 


if ( key == 's' | | key == 'S' ) 

{ 

do 

{ 

heater_select = (unsigned char) query _user_f or_number ( 

"Enter 1 or 2 to select the heater" ) ; 

} 

while ( heater_select < 1 j | heater_select > 2 ); 
do 

{ 

sensor_select = (unsigned char) query_user_f or_number ( 

"Enter 1, 2, 3, 4, or 5 to select the sensor" ); 

> 

while ( sensor_select < 1 | | sensor_select > 5 ) ; 
do 

{ 

set_point = (unsigned char) ( query_user_f or_number ( 

"Enter 0 %C to 50 %C for set point" ) * 255.0 / 50.0 ) 

} 

while ( set_point < 0 | | set_point > 255 ) ; 

send_byte_to_heater ( 'S' ); 
send_byte_to_heater ( heater_select ) ; 
send_byte_to_heater ( sensor select ); 
send_byte_to_heater ( set_poInt ) ; 

if ( heater_select == 1 ) 

22 write_string_in_screen_buf f er ( "maintain". 


turn_on_cursor ( ) ; 
return 0 ; 

> 


/* 

leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

° functions for communicating with heater controller 

aeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

*/ 


void send_byte_to_heater ( unsigned char c ) 

{ 

unsigned char echo; 

if ( debugjmode ) return; 

send_byte ( c , comm_port ) ; 

wait_f or_comm_port_data ( ) ; 

echo = receive_byte ( comm_port ); 
if ( echo i = c ) 

{ 

write_string_in_screen_buf f er ( "Incorrect byte echoed back", 
ROW_ERROR_MESSAGE, COLUMN_ERROR_MES SAGE ) ; 
update_screen ( ) ; 
turn_on_cursor ( ) ; 
exit ( 1 ) ; 

} 


unsigned char receive_byte_f rom_heater ( unsigned comm_port ) 

{ ~ 

if ( debug_mode ) 

return (unsigned char) ( (double) rand() * 255.0 / 32767.0 ); 

wait_f or_comm_port_data ( ) ; 
return receive_byte ( comm_port ); 

} 


void wait_f or_comm_port_data ( void ) 

{ 

int key, key_was_hit = 0; 

while ( 0 == ( check_status ( comm_port ) & DATA_READY_BIT ) ) 

{ 

if ( kbhit() ) 

{ 

key_was_hit = 1; 

}cey = getch ( ) ; 
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R0W_HEATER1_SETP0INT, C0LUMN_HEATER1_SETP0INT ) ; 

sprintf ( string, "sensor %-2d", (int) sensor_select ); 
write_string_in_screen_buf f er ( string, 

ROW_H EAT ER 1_S ETPO INT + 1, C0LUMN_HEATER1_SETP0INT ) ; 

sprintf ( string, "at l.ilf^C ", 

(double) ( set_point * 50.0 / 255.0 ) }; 

wr ite_str ing_in_screen_buf f er ( string , 

RO W_H EAT ER 1 _S ETPO I NT + 2 , COLUMN_HEATERl_S ETPO INT ) ; 

} 


if ( heater_select == 2 ) 

{ 

write_string_in_screen_buf f er ( "maintain" , 

ROW_HEATER2_SETPOINT, COLUMN_HEATER2_SETPOINT ) ; 


> 


sprintf ( string, "sensor %-2d", (int) sensor_select ); 
write_string_in_screen_buf fer ( string, 

ROW_HEATER2_SETPOINT + 1, COLUMN_HEATER2_SETPOINT ); 

sprintf ( string, "at l.llf^C ", 

(double) ( set_point * 50.0 / 255.0 ) ); 

write_string_in_screen_buf f er ( string , 

ROW_HEATER2_SETPOINT + 2 , COLUMN_HEATER2_SETPOINT ) ; 

} 


/* 

Change number of averages. 
*/ 


else if ( key == 'a 7 j | key == 'A' ) 

{ 

do 

{ 

number_of_readings_to_average = query _user_f or_number ( 

"Enter number of readings to average for screen display" ) 

} 

while ( number_of_readings_to_average < 1.0 ); 

} 


/* 

Setup to save values to a file. 
*/ 


else if ( key == ' f ' j j key == ' F' ) 

{ 

j- 

} 

while ( key != ESCAPE ); 


/* 

Exit the program after restoring the cursor. 

24 */ 


if ( key == 0 ) getch ( ) ; 
if ( key == ESCAPE ) 

{ 

turn_on_cursor ( ) ; 
exit ( 1 ) ; 

> 

} 

} 

if ( key_was_hit && key != 0 ) ungetch( key }; 


ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee««e«eeeeeee«eeeeeeeeef 

° functions for controlling cursor 

&eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee«e«ee«ee««*«eeeeeeef 


void turn_on_cursor ( void ) 

r 

change_cursor ( 6 , 7 ) ; 

1 

/ 


void turn_of f_cursor ( void ) 

{ 

change_cursor ( 63, 63 ); 

} 


void change_cursor ( int top, int bottom ) 

r 

union REGS regs; 

regs. h. ah = (unsigned char) SET_CRSR; 
regs.h.ch = (unsigned char) top; 
regs. h. cl = (unsigned char) bottom; 
int86 (VIDEO_IO, &regs , &regs) ; 


/* 


*/ 


ieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 


° functions for drawing screen 



void background_on_screen ( void ) 

char *cp = screen_characters ; 


sprintf ( cp, "%s", " 

sprintf ( cp, "%s'' , " 
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sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s", 

tl 


sprintf ( 

cp, 

"%s", 

tl 


sprintf ( 

cp, 

"%s". 

II 


sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s" ,- 

tl 


sprintf ( 

cp, 

"%s" , 

II 


sprintf ( 

cp, 

"%s" , 

II 


sprintf ( 

cp, 

"%s", 

It 


sprintf ( 

cp, 

"%s" , 

II 


sprintf ( 

cp, 

"%s" , 

11 


sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s" , 

11 


sprintf ( 

cp, 

"%s". 

If 


sprintf ( 

cp, 

"%s" , 

It 


sprintf ( 

cp, 

"%s", 

It 


sprintf ( 

cp, 

"%s", 

II 


sprintf ( 

cp, 

"%s" , 

"Esc 

. . . exit 

sprintf ( 

cp, 

"%s" , 

"S . . 

. . . set 

sprintf ( 

cp, 

"%s", 

"A . . 

. . . set 

sprintf ( 

cp. 

"%s", 

"F . . 

. . . save 


0&&cicLHeater 1 

* o 

c %c 
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%C 
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he 

4 

Copper 


to dos 

point conunand 
sensor averages 
readings in a file 


fill_attribute_block( WHITE_ON | BLACK, 0, 24, 0, 79 ); 


fill_attribute_block( WHITE_0N | BROWN, 

PLATE_UL_ROW , PLATE_UL_ROW + PLATE_ROWS - 1, 
PLATE_UL_COLUMN , PLATE_UL_COLUMN + PLATE_COLUMNS - 1 ) ; 


f ill_attribute_block ( WHITE_0N | BROWN, 

HEATER1_UL_R0W, HEATER1_UL_R0W + HEATER1_R0WS - 1, 
HEATER1_UL_C0LUMN , HEATER1_UL_C0LUMN + HEATER1 COLUMNS - 1 ) ; 


f ill_attribute_block( WHITE_0N | BROWN, 

HEATER2_UL_ROW, HEATER2_UL_R0W + HEATER2_ROWS - 1, 

HEATER 2 _UL_C0LUMN , HEATER 2 _UL_C0LUMN + HEATER2_COLUMNS - 1 ) ; 


f ill_attribute_block ( BLACK_ON | WHITE, 

SENSORl_UL_ROW, SENSORl_UL_ROW + SENSORl_ROWS - 1, 
SENSORl_UL_COLUMN, SENSORl_UL_COLUMN + SENSOR1 COLUMNS - 1 ) ; 


fill_attribute_block( BLACK_ON | WHITE, 

SENSOR2_UL_ROW, SENSOR2_UL_ROW + SENSOR2_ROWS - 1, 
SENSOR2_UL_COLUMN, SENSOR2_UL_COLUMN + SENSOR2 COLUMNS - 1 ) ; 


f ill_attribute_block( BLACK_ON | WHITE, 

SENSOR3_UL_ROW, SENSOR3_UL_ROW + SENSOR3 ROWS - 1, 
SENSOR3_UL_COLUMN, SENSOR3_UL_COLUMN + SENSOR3_COLUMNS - 1 ) ; 


fill_attribute_block( BLACK_ON | WHITE, 

SENSOR4_UL_ROW, SENSOR4_UL_ROW + SENSOR4_ROWS - 1, 
SENSOR4_UL_COLUMN, SENSOR4_UL_COLUMN + SENSOR4_COLUMNS - 1 ) ; 
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fill attribute block ( 3LACK_0N 1 WHITE, 

SENS0R5 UL ROW, SENSOR5_UL_ROW + SENSOR5_ROWS - 1, 

SENSOR5 _ UL _ COLUMN , SENSOR5_UL_COLUMN +• SENSOR5_COLUMNS - 1 ); 


fin attribute block ( BRIGHT_WHITE_ON j BROWN, 

SENSOR1 UL ROW + 1, SENSORl_UL_ROW + 1 + SENSORl_ROWS - 1, 
SENSOR1 UL COLUMN, SENSORl_UL_COLUMN + SENSORl_COLUMNS - 1 ); 


f ill_attr ibute_block ( 
SENSOR2_UL_ROW + 
SENSOR2 UL COLUMN 


BRIGHT WHIT E_ON | BROWN , 

1, SENSOR2_UL_ROW + 1 + SENSOR2_ROWS 
SENSOR2 UL COLUMN + SENSOR2_COLUMNS 


1 , 

i ) ; 


fill attribute block ( BRIGHT_WHITE_ON | BROWN, 

SENSOR3 UL — ROW + 1, SENSOR3_UL_ROW + 1 + SENSOR3_ROWS 
SENSOR3~UL~ COLUMN, SENSOR3_UL_COLUMN + SENSOR3_COLUMNS 


1 , 

1 ) ? 


f ill_attribute_block ( 
SENSOR4_UL_ROW + 
SENSOR4 UL COLUMN 


BRIGHT WHITE_ON | BROWN, 

1 , SENSOR4_UL_ROW + 1 + SENSOR4_ROWS 
SENSOR4 UL_COLUMN + SENSOR4_COLUMNS 


1 , 

i ) ; 


fill attribute block ( BRIGHT_WHITE_ON | BROWN, 

SENSOR5 UL~ ROW + 1, SENSOR5_UL_ROW + 1 + SENSOR5_ROWS - 1, 
SENSOR5 _ UL — COLUMN , SENSOR5_UL_COLUMN + SENSOR5_COLUMNS - 1 


) ; 


update_screen ( ) ; 


void upaate_screen ( void ) 
displav_screen ( ) ; 

/ 


void display_screen ( void ) 

1 /* draw the screen with the contents of the character and attribute 

arrays */ 


int i ; 

char *ap = screen_attributes ; 
char *cp = screen_characters ; 

unsigned char far *video_mem_ptr = (unsigned char far 
for ( i = 0; i < 2000; ++i ) 

*video mem ptr++ = (unsigned char) *cp++, 
*video — mem~ptr++ = (unsigned char) *ap++; 


(0XB800L « 
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/oid{Write_string_in_screen_buf f er ( char ^string, int row, int column ) 

/* copy -the string to the specified location in the screen buffer 
int location — row * 80 + column; 

while ( *string ) 

{ 

screen_characters [ loca , cion++ ] = *string++; 


void write^euble_in_screen_buffer ( char *format string, 

^ dpuble number, int row, int column ) 

/* copy the double precision floating point number to the specified 
location m the screen buffer using the format string */ 

char string [80]; 

sprintf( string, f ormat_string, number ); 
wnt^ 6 tring_in_screen_buffer ( string, row, column ) ; 


void cut_string ( char *destination, char *source, int first_char, int last chi 

/* copy specified piece of character string from source to 
destination */ 

char * ptr; 

for ( ptr — source + first_char; ptr <— source + last char; ++ptr ) 
*destination++ = *ptr; — 

♦destination = 0 ; 


void user_edit_f ield_on_screen ( char *string, 

int row, int start_column, int end_column, 
char f ield_f oreground, char f ield_background, 
char cur sor_f oreground, char cursor_background ) 

{ 

/* let the user edit a field on the screen and return the editted 
field contents in the string */ 

int column, key = 0 , key 2 ; 

char saved_f ield_chars [ 100 ] , saved_field_attrs[ 100] , saved_attr; 

copy_characters_from_screen( saved_f ield_chars, row, row, start column 

copy_attributes_from_screen ( saved_f ield_attrs, row, row, start column 

f ill_attribute_block ( field_f oreground | f ield_background, 

row, row, start_column, end_column ) ; 
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column = starr_coiuran; 

saved_at.tr = screen_attributes f row * 80 + column ] ; 

screen_attributes [ row * 80 + column ] = cursor_f orearound j cursor_ba 

while ( key != RETURN ) 

{ 

while ( !kbhit() ) 

{ 

update_screen ( ) ; 

r 

key = getch ( ) ; 

if ( key == ESCAPE ) 

{ 

screen_attributes [ row * 80 + column ] = saved_attr; 
sprintf ( string, "%s", saved_f ield_chars ); 
write_str ing_in_screen_buf f er ( string, row, start_colu 
column = start_column ; 

saved_attr = screen_attributes [ row * 80 + column ]; 
screen_attributes [ row * 80 + column j = cursor_f oregr 

} 

else if ( key >= 32 && key <= 126 ) 

{ 

screen_characters [ row * 80 + column ] — (char) key; 
screen_attributes [ row * 80 + column ] = saved_attr; 
if ( column < end_column ) ++column; 

saved_attr = screen_attributes [ row * 80 + column ]; 
screen_attributes [ row * 80 + column ] = cursor_f oregr 

} 

else if ( key == BACKSPACE && column > start_column ) 

{ 

screen_attr ibutes [ row * 80 + column ] = saved_attr; 

— column ; 

savea_actr = screen_attr ibutes [ row * 80 + column ]; 
screen attributes ( row * 80 + column ] = cursor_f oregr 

} 

else if ( key == 0 ) 

{ 

key2 = getch ( ) ; 

if ( key2 == LEFT_ARROW && column > start_column ) 

r 

screen_a ttr ibutes f row * 80 + column ] = saved 
— column ; 

saved attr = screen_attr ibutes [ row * 80 + col' 
screen_attributes [ row * 80 -t- column ] = curso: 

} 

else if ( key2 == RIGHT_ARROW && column < end_column ) 

{ 

screen_attr ibutes ( row * 80 + column ] = saved 
++column; 

saved_attr = screen_attributes ( row * 80 + coli 
screen attributes [ row * 80 + column ] = cursoi 


} 


> 
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copy_characters_f rom_screen ( string, row, row, start_column, end_coluir 
copy_attributes_to_screen ( saved_f ield_attrs , row, row, start_column, 
update_screen ( ) ; 


void copy_characters_from_screen ( char ^string, 

int starr_row, int end_row, int start_column, int end_column ) 

{ 

int row, column; 


for ( row = start_row; row <= end_row; ++row ) 

for ( column = start_column; column <= end_column; ++column ) 
*string++ = screen_characters[ row * 80 + column ]; 
♦string = 0; 


void copy_characters_to screen ( char *string, 

int start_row, Tnt end_row, int start_column, int end_column ) 

{ 

int row, column; 


} 


for ( row = start_row; row <= end_row; ++row ) 

for ( column = start_column; column <= end_column; ++column ) 
screen characters [ row * 80 + column ] = *string++; 


void copy_attributes_from_screen ( char *string, 

int start_row, int end_row, int start_column , int e'nd_column ) 

{ 

int row, column; 

for ( row = start_row; row <= end_row; ++row ) 

for ( column = start_column; column <= end_column; ++column ) 
*string++ = screen_attributes[ row * 80 + column ]; 
♦string = 0; 

} 


void copy_attributes_to^_screen ( char *string, 

int start_row, Tnt end_row, int start_column, int end_column ) 

{ 

int row, column; 


for, ( row = start_row; row <= end_row; ++row ) 

for ( column = start_column; column <= end_column; ++column ) 
screen_attributes[ row * 80 + column ] = *string++; 

> 
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void f ill_charac-cer_block ( char c, 

inc start_row, int end_rcw , inr. s~ar'c_corumn . 

r 

\ 

int row, column; 


int and column ) 


v 

J 


for ( row = start row; row <= end_row; -+row ) 

for ( column = start_column ; column <= end_column; r+column ) 
screen characters [ row * 30 + column j = c; 


void fill attribute block ( char c, 

int start row, int end_row, int start_column, int end_column ) 


{ 


int row, column; 

for ( row = start row; row <= ena_row; +-rrow ) 

for ( column = start_column ; column <= end_column; ++column ) 
screen attributes [ row * 80 + column ] = c; 


char query_user_f or_key ( char *prompt ) 

{ 

/* ?romDt the user for a single key response */ 

char back characters [ 256 ] , back_attributes [256 ] ; 
char f r ont_character s [256] , f ront_attributes [ 256 ] ; 
int length = 0; 
char * p = prompt, key = 0; 

while ( *p++ ) ++length; 

open window ( back_characters , back_attributes , 

ROW_querv_window , 

ROW_query_window + 2, 

COLUMN_query_window - length/ 2 - 1, 
COLUMN_query_window + length/ 2 + 5, 

WHITE_ON | BLACK ) ; 

open_window( f ront_characters , f ront_attributes , 

ROW_query_window - 1, 

ROW query_window + 1, 

COLUMN_query_window - length/ 2 - 3, 
COLUMN~query_window + length/ 2 + 3, 

BLACK_ON | WHITE ) ; 

write string in_screen_buf f er ( prompt, 

- ~ ROW_query_window, 

COLUMN_query_window - length/ 2 ) ; 

while ( ! kbhit ( ) ) update_screen ( ) ; 

key = (char) getch(); 

close window ( front_characters , f ront_attributes , 
ROW_query_window - 1, 

ROW_query_window + 1, 

COLUMN_query_window - length/2 - 3, 
COLUMN_query_window + length/ 2 + 3 ); 



close_window( back_characters , back_artr ibutes , 
ROW_query_window, 

ROW_query_window + 2, 
COLUMN_query_window - length/ 2 - 1, 
COLUMN_query_winaow + length/ 2 + 5 ) ; 

update_screen ( ) ; 

return ( key ) ; 

> 


double query _user_f or_number ( char *prompt ) 

{ 

/* Prompt the user for a number */ 

char back_char acter s [256], back_attr ibutes [256]; 

char f ront_characters [ 256 ] , front_attributes [ 256 ] ; 

int length =0; 

char string[80], * p = prompt; 

double number = 0.0; 

while ( *p++ ) ++length; 

length += 10; 

open_window( back_characters , back_attributes , 

ROW_query_window , 

ROW_query_window + 2, 

COLUMN_query_window - length/2 - 1, 
COLUMN_query_window + length/2 + 5, 

WHITE_0N | BLACK ) ; 

open_window ( front_characters , front_attr ibutes , 

ROW_query_window - 1, 

ROW_querv_window + 1, 

COLUMN_query_window - length/2 - 3, 
COLUMN_query_window + length/2 + 3, 

BLACK_0N | WHITE ); 

write_string_in_screen_buf f er ( prompt, 

ROW_query_window , 

COLUMN_query_window - length/ 2 ) ; 

user_edit_f ield_on_screen ( string, 

ROW_query_window , 

COLUMN_query_window + length/ 2 - 7, 
COLUMN_query_window + length/ 2 -f 1, 
BRIGHT_WHITE_ON, BLUE, 
BRIGHT_WHITE_ON, BLACK ) ; 

sscanf ( string, "%lf", &number ); 

close_window( front_characters, front_attributes, 
ROW_query_window - 1, 

ROW_query_window + 1, 

COLUMN_query_window - length/ 2 - 3, 
COLUMN_query_window + length/ 2 + 3 ) ; 

close_window( back_characters , back_attr ibutes , 
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ROW_query_window , 

ROW_query_window - 2, 

COLUMN_query_winaow - length/ 2 - 1, 
COLUMN_query_window + length/ 2 + 5 ) ; 

update_screen ( ) ; 

return ( number ) ; 

> 


void open_window( char *character_arrav , char *attribute_array , 

int start_row f int end_row, int start_column, int end_column, 

char color_byte ) 

{ 

/* open a blank window on the screen, saving the previous contents 
in the character and attribute arrays */ 

copy_characters_f rom_screen ( character_array , 

start_row, end_row, 
start_column, end_column ) ; 

copy_attr ibutes_f rom_screen ( attr ibute_array , 

start_row, end_row, 
start_column, end_column ) ; 

f ill_character_block ( ' ' , start_row, end_row, 

start_column, end_column ) ; 

f ill_attribute_block ( color_byte , 

start_row, end_row, 
start_column, end_column ) ; 

} 


void close_window( char *character_array , char *attribute_array , 

int start_row, int ena_row, int start_column, int end_column ) 

{ 

/* close a window on the screen, copying the contents of the 
character and attribute arrays to the screen */ 

copy_characters_to_screen ( character_array , 

~ * start_row, end_row, 

start_column, end_column ) ; 

copy_attributes_to_screen ( attribute_array , 

" * " start_row, end_row, 

start column, end_column ) ; 
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;THIS PROGRAM IS THE INITIAL ATTEMPT TO COMMUNICATE WITH A PC 
; AND ACTIVELY SET TEMPERATURE SET POINTS, DEFINE CONTROL SENSORS 
; AND READ DATA TO BE DISPLAYED. THIS IS FOR THE PROGRAMMABLE 
; HEATER CONTROLLER USING THE 68HC811E2 MICROCONTROLLER. 


TEMPO 

EQU 

$10 

TEMPI 

EQU 

$11 

TEMP2 

EQU 

$12 

TEMP3 

EQU 

$13 

TEMP4 

EQU 

$14 

TCONT1 

EQU 

$15 

TSET1 

EQU 

$16 

TCONT2 

EQU 

$17 

TSET2 

EQU 

$18 

SENSOR 

EQU 

$0F 

HEATNUM 

EQU 

$19 

SENSNUM 

EQU 

$1A 

SETPOINT 

EQU 

$1B 

STATUS 

EQU 

$20 

PORTA 

EQU 

$1000 

PORTB 

EQU 

$1003 

PORTC 

EQU 

$1003 

DDRC 

EQU 

$1007 

PORTD 

EQU 

$1008 

DDRD 

EQU 

$1009 

PORTE 

EQU 

$100A 

PACTL 

EQU 

$1026 


DEFSEG PROGRAM, ABSOLUTE 
SEG PROGRAM 

ORG $F800 


; INITIALIZE STACK, OUTPUT PORTS AND HEATERS 

******************************************************************* 


LDS 

#$00FF 

; INITIALIZE STACK 

LDY 

#$1000 

; LOAD Y REG WITH SEGMENT OFFSET 

LDAA 

#$FF 

; SET ALL PINS OF PORT C AS OUTPUTS 

STAA 

DDRC 

; BY PUTTING FF IN DDRC 

BSET 

$26 , Y , $80 

; SETUP PA7 OF PORT A AS OUTPUT 

BSET 

$00 , Y , $88 

;TURN HEATERS OFF (0=ON, l=OFF) 

BSET 

$09 , Y, $02 

; SETUP BIT1 PORT D AS OUTPUT 

LDAA 

#$30 

; SET UP SCI FOR 9600 BAUD 

STAA 

$102B 


LDAA 

#$oc 

; ENABLE TRANSMIT AND RECEIVE SCI 

STAA 

$ 102D 
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1A.INL00P : 


HEATER1 : 


LDAA 

1039H 

; POWER ON A/D CONVERTERS 

ORAA 

#8 OH 


STAA 

1039H 


LDAA 

#$04 


STAA 

PORTC 

; LOAD 12 BIT D/A WITH 2.73 VOLT VALUE 

LDAA 

#$5E 

STAA 

PORTB 


BSET 

$03 , Y, $10 

;SET GAIN OF PGA200 TO 10 


; INITIAL CONDITIONS 


LDAA 

#$03 

STAA 

TCONT1 

STAA 

TCONT2 

LDAA 

#$30 

STAA 

TSET1 

STAA 

TSET2 


; READ TEMPS 1-5 


BCLR 

LDAB 

JSR 

STAA 

$00, Y, $70 
PORTA 
READTEMP 
TEMPO 

;THIS SELECTS MUXED 
; PUT PORTA IN B 

TEMP 0 

ADDB 

STAB 

JSR 

STAA 

#$10 

PORTA 

READTEMP 

TEMPI 

; INCREMENT B 
; SELECT TEMP 

TO 

SENSOR 

1 

ADDB 

STAB 

JSR 

STAA 

#$10 
PORTA 
READTEMP 
TEMP 2 

; INCREMENT B 
; SELECT TEMP 

TO 

SENSOR 

2 

ADDB 

STAB 

JSR 

STAA 

#$10 

PORTA 

READTEMP 

TEMP3 

; INCREMENT B 
; SELECT TEMP 

TO 

SENSOR 

3 

ADDB 

STAB 

JSR 

STAA 

#$10 
PORTA 
READTEMP 
TEMP 4 

; INCREMENT B 
; SELECT TEMP 

TO 

SENSOR 

4 


;****************************************************************** 
; HEATER CONTROL 

;****************************************************************** 

;******** * HEATER 1************************************************* 

LDAB TCONT1 

CLRA 

XGDX ; LOAD TCONT1 IN X REG 
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HI OFF: 


HI ON: 


HEATER2 : 


H2 OFF: 


H2 ON: 


HEATEND : 


HERE: 


CHECKD : 


H2STAT: 


SENDSTAT: 


BRCLR 

$00 , Y , $08 , Hl_ON 

; IF BIT 3 IS 0 THEN BRANCH TO Hl_ON 

LDAA 

SUBA 

SUBA 

BMI 

TSET1 

#$0A 

SENSOR, X 
HEATER2 

; LOAD A WITH HEATER 1 SET POINT TEMP 
; SUBTRACT 2 DEGREE 

; SUBTRACT CONTROL1 SENSOR TEMPERATURE 

/ 

BCLR 

BRA 

$00, Y, $08 
HEATER2 

; TURN HEATER 1 ON 

LDAA 

SUBA 

BPL 

TSET1 
SENSOR, X 
HEATER2 

; LOAD A WITH HEATER 1 SET POINT TEMP 
/SUBTRACT CONTROL 1 SENSOR TEMPERATURE 

f 

BSET 

$00 , Y , $08 

/TURN HEATER 1 OFF 

; *********HEATER 2************************************************* 

LDAB 

CLRA 

XGDX 

TCONT2 

/LOAD TCONT2 IN X REG 

BRCLR 

$00, Y, $80,H2_ON 

/IF BIT 0 IS 0 THEN BRANCH TO H2_ON 

LDAA 

SUBA 

SUBA 

BMI 

TSET2 

#$0A 

SENSOR, X 
HEATEND 

/LOAD A WITH HEATER 2 SET POINT TEMP 
/SUBTRACT 2 DEGREE 

/SUBTRACT CONTROL2 SENSOR TEMPERATURE 
/ 

BCLR 

BRA 

$00, Y, $80 
HEATEND 

/TURN HEATER 2 ON 

LDAA 

SUBA 

BPL 

TSET2 
SENSOR, X 
HEATEND 

/LOAD A WITH HEATER 2 SET POINT TEMP 
/SUBTRACT CONTROL1 SENSOR TEMPERATURE 
/ 

BSET 

$00, Y, $80 

/TURN HEATER 2 OFF 


;*********** SERIAL PORT CHECK ************************************* 


BRCLR $2E, Y, $20, HERE ;IF DATA RECIEVED BYTE NOT SET THEN 

; GOTO NOBYTE 


LDAA $102F 

CMPA #$44 

BNE CHECKS 

JSR SENDBYTE 


;READ DATA RECEIVED 
; CHECK IF BYTE IS "D" 

; IF NOT "D" THEN GOTO CHECKS 
; ECHO "D" BACK TO PC 


CLRA 


STAA 

STATUS 

BRCLR 

$00 , Y, $08 , H2STAT 

BSET 

STATUS, $01 

BRCLR 

$00, Y, $80, SENDSTAT 

BSET 

STATUS, $02 


;READ STATUS OF HEATER 1 
;READ STATUS OF HEATER 2 


LDAA STATUS ; SEND STATUS WORD 

JSR SENDBYTE 
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CHECKS: 


WAITHN : 


WAITSN : 


WAITSP : 


FIGURE1 : 


FIGURE2 : 


LDAA 

TEMPO 

JSR 

SENDBYTE 

LDAA 

TEMPI 

JSR 

SENDBYTE 

LDAA 

TEMP 2 

JSR 

SENDBYTE 

LDAA 

TEMP 3 

JSR 

SENDBYTE 

LDAA 

TEMP4 

JSR 

SENDBYTE 

JMP 

NOBYTE 

CMPA 

#$53 

BNE 

NOBYTE 

JSR 

SENDBYTE 

BRCLR 

$2E,Y, $20, WAITHN 

LDAA 

$ 102F 

STAA 

HEATNUM 

JSR 

SENDBYTE 

BRCLR 

$2E,Y, $20, WAITSN 

LDAA 

$102F 

STAA 

SENSNUM 

JSR 

SENDBYTE 

BRCLR 

$2E,Y, $20, WAITSP 

LDAA 

$ 102F 

STAA 

SETPOINT 

JSR 

SENDBYTE 

LDAA 

HEATNUM 

CMPA 

#$02 

3EQ 

FIGURE2 

LDAA 

SENSNUM 

STAA 

TCONT1 

LDAA 

SETPOINT 

STAA 

TSET1 

JMP 

NOBYTE 

LDAA 

SENSNUM 

STAA 

TCONT2 

LDAA 

SETPOINT 

STAA 

TSET2 


••SEND SENSOR TEMPERATURE 0 
; SEND SENSOR TEMPERATURE 1 
; S END SENSOR TEMPERATURE 2 
; SEND SENSOR TEMPERATURE 3 
; SEND SENSOR TEMPERATURE 4 

/CHECK TO SEE IF BYTE IS "S" 

; IF NOT "S" THEN GOTO NOBYTE 

/ECHO "S" BACK TO PC 

/WAIT FOR HEATER NUMBER TO BE SENT 
/READ HEATER NUMBER BYTE 

/ECHO HEATNUM BACK TO PC 

/WAIT FOR SENSOR NUMBER TO BE SENT 
/READ SENSOR NUMBER BYTE 

/ECHO SENSNUM BACK TO PC 

/WAIT FOR HEATER NUMBER TO BE SENT 
/READ SET POINT BYTE 

/ECHO SETPOINT BACK TO PC 

/IF HEATER #2 GOTO FIGURE2 


NOBYTE: JMP MAINLOOP 
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; SENDBYTE SUBROUTINE 


SENDBYTE: 

TWAIT: 

STAA 

BRCLR 

RTS 

$102F 

$2E,Y,$S0, TWAIT 

/TRANSMIT BYTE FROM A REG 
/WAIT FOR BYTE TO BE SENT 


; READTEMP SUBROUTINE 

READTEMP : 

CLRA 

LDAA 

#$0A 

/SET A/D FOR SINGLE SCAN CHANNEL 0 

NOTYET1 : 

DECA 

BNE 

NOTYET 1 

/WAIT FOR MUX TO SETTLE 


STAA 

LDAA 

$1030 

#$06 

/AND START CONVERSION 

NOTYET: 

DECA 

BNE 

NOTYET 

/CONVERSION COMPLETE 


LDAA 

$1031 

/READ A/D RESULT 


RTS 




DEFSEG reset, ABSOLUTE 

SEG reset 

ORG $FFFE 



DB 

DB 

$F8 

$00 



END 
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APPENDIX B 


PHCC TEST PROCEDURES/RESULTS 




Materials Required: 

• 286 (or better) IBM-compatible PC with a 9-pin serial port 

• 9-pin female computer cable wired as shown in figure 1 

• PHC program disk with PHCCODE6.BIN, BOOT.BIN, HEATER.EXE, and 
PROGCOMl.EXE. 

• Bipolar 15-V power supply (i.e., +15 V and -15 V) 

• 5-V power supply 

• Variable 5-V power supply. 


Special Notes: 

External pin numbers, EP1 through EP29, may be different than used in the actual hybrid design. 
Check the MSFC drawings to ensure connections are to the right points. 


Computer Interface Set-Up: 

Connect the computer com 1 port to the hybrid circuit as shown in figure 1 . 



Figure 1. 

Next, connect the power supplies to the appropriate pins as shown in figure 2; i.e., +15 V to EP26 and 
EP24, -15 V to EP27, +5 V to EP28, and GND to EP29 and EP25. 


PAGS 





i, ■L-rv> ■" 


pagi blank not fm.vee> 


E p 26 O 1 1— O VDD 

EP24 O—l ' O + 15V 

a v/oo 


T W 

i 0-15V 

LP2o 

T \_J VLftr 

1 O +5V 

EP25 O t 
EP29Q 

±. 


Figure 2. 


Last, install 10-k ohm '/ 4 -W resistors in place of heater- 1, heater-2, heater-3, and heater-4. These 
resistors will model the actual heaters and will be connected to pins EP16 through EP23, as shown in 
figure 3. 


10K 

EP1 6 OA/VMO EP1 7 
Heater-1 


10K 

EP1 8 OAA/M3 EP1 9 
Heater-2 


10K 

EP20 OVNA- 0 EP21 

Heater-3 


10K 

EP22 0-VsAO EP23 

Heater-4 


Figure 3. 


System Testing: 

1. Once all electrical connections are made, power should be turned on to the hybrid circuit. The 
sum total current of all supplies should not be greater than 100 mA. Record the currents on each power 
supply. 


Supply 

Measured Value 
(mA) 

Acceptable Range 
(mA) 

+15 VP.S. 

30 

<200 

-15 V P.S. 

30 

<200 

i +5 VP.S. 

20 

<200 


2. Turn all power supplies off and short EP15 to ground. Once shorted, turn on all power 
supplies. 
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3. Insert PHC software disk in the PC and change the active drive to the one containing the 
disk. At the proper disk prompt, type PROGCOM1 PHCCODE6.BIN. The computer screen should 
appear as shown in figure 4 and the value for byte number automatically increment up to the value 
shown in figure 4. Once this completes, the message ‘eeprom code successfully transferred’ will 
display. 


A:>progcoml phccode6.bin 

The bootstrap code is 256 bytes. 

byte #255 ...bootstrap successfully transferred. 

The eeprom code is 2048 bytes. 

byte #2047 ...eeprom code successfully transferred. 

A:> 


Figure 4. 


4. Remove the shorting wire on EP15. 

5. Cycle all power supplies off and then on. 

6. Type HEATER on the PC followed by a return. The screen should appear as shown in 
figure 5. 



Copper 


Enter 1 for COM1 or 2 for COM2 


ESC 

PYit tn Hoq 

1 J°c 1 l°c | 

Heater 3 

s 

....set point command 
....save reading in a file 

T8 T1 


F 

m°c 

Heater 4 

A 

....set sensor averages 

T2 



Figure 5. 





7. Enter a 1 (for communication port 1 ) followed by a carriage return. 

8. Values should appear in the spaces for T1 through T8. T1 and T2 are the values for the 
internal hybrid AD590s which should read between 24 and 33 °C. The rest of the sensors should read 
‘0.’ Record the values on the computer screen for T1 and T2 below. 


T1 

50 °C 

T2 

50 °C 


9. Set the variable power supply to 5 V and connect it through a serial 10-k ohm resistor 
individually to each of the AD590 inputs (see fig. 6). Record the values shown on the computer screen 
for the channel stimulated by the supply. Repeat this process for the power supply set to 6 V and again at 


6.5 V. 


AD590 Input 

Measured Value 

Measured Value 

Measured Value 

at 5 V 

at 6 V 

at 6.5 V 

EP1 (T3) 

0 

28 

49.5 

EP2 (T4) 

0 

28 

49.8 

EP3 (T5) 

0 

29 

50 

EP4 (T6) 

0 

29 

50 

EP5 (T7) 

0 

30 

50 

EP6 (T8) 

0 

30 

50 


Note: At 5 V the measured value should be between 0.0 and 1 .0 °C, at 6 V the measured value should be between 
28 and 32 °C, and at 6.5 V the measured value should be between 49 and 50 °C. 



— A/\A O EP1 Thru EP6 

10K One at a Time! 

5 to 7 Volt 
Power Supply 


Figure 6. 


10. On the PC, type ‘S’ to select the ‘set point command* option. This option will allow the 
heater controls to be tested. At the prompt, ‘Enter 1, 2, 3, or 4 to select the heater,’ enter a 1 to make 
heater 1 active. The software will then prompt, ‘Enter 3, 4, 5, 6, or 7 to select the sensor,’ enter a 7 to 
select an AD590 input for control. The next prompt, ‘Enter 0 to 50 °C for set point,’ enter a value of 30 
°C. This sets up the heater to turn on below 30 °C and off at temperatures above 30 °C. The screen on 
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the computer should reflect the information in one of the four comers, depending on which heater is 
selected. 


1 1 . Using the same variable power supply setup as in step 9, set the voltage to 5 V and inject on 
EP8. The computer screen should verify that the heater 1 is on by a different color block around the 
heater. Hook a voltmeter to the heater 1 resistor (the meter should indicate 15 V). Slowly increase the 
variable voltage supply (maximum of 7 V) until the heater 1 voltage drops to 0, as indicated on the 
voltmeter. Verify that the computer screen also indicates the heater cutoff and record the voltage on the 
variable supply at cutoff in the table below. 


Heater 

Cutoff Voltage (V) 

Acceptable Range (V) 

Heater 1 

5.5051 

2.9 — > 3.1 


12. Repeat steps 10 and 1 1 for the remaining three heaters using the same sensor and set point, 
but choose a different heater. Remember to move the voltage meter to the active heater and record the 
values in the table below. 


Heater 

Cutoff Voltage (V) 

Acceptable Range (V) 

Heater 2 

5.503 


Heater 3 

5.503 


Heater 4 

5.503 



45 




Connections to Programmable Heater Controller Hybrid 

Package P/U Numbers Correspond With EP Numbers 
on Schematic 


Argo Transdata Corp. 
July 21, 1992 
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